home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / RUN DATER.bas < prev    next >
BASIC Source File  |  2000-01-01  |  871b  |  8 lines
  1. 10  GOTO 11:"01/01/82": REM DON'T^ADD^ANY^LINE^NUMBERED^SMALLER^THAN^10.
  2. 11 P$ = "PROGRAM NAME": REM TYPE^ACTUAL^NAME^IN^QUOTES.
  3. 12 L =  PEEK(103) + PEEK(104) *256 +9: FOR I = L TO L +7:DAY$ = DAY$ + CHR$( PEEK(I)): NEXT 
  4. 13  HOME : VTAB 22: PRINT P$: FOR I = 1 TO  LEN(P$): PRINT "-";: NEXT : PRINT : PRINT "LAST RUN ON: ";DAY$;".": PRINT : PRINT "TODAY'S DATE:__/__/__";: HTAB 13: INPUT ":";NUDAY$: IF  LEN(NUDAY$) < >8  THEN 13
  5. 14  FOR I = 1 TO 8:A$(I) =  MID$ (NUDAY$,I,1): NEXT :MO =  VAL(A$(1)) *10 + VAL(A$(2)):DA =  VAL(A$(4)) *10 + VAL(A$(5)): IF (MO <1  OR MO >12)  OR (DA <1  OR DA >31)  OR A$(3) < >"/"  OR A$(6) < >"/"  THEN 13
  6. 15  FOR I = 1 TO 8: POKE L +I -1, ASC(A$(I)): NEXT 
  7. 16  PRINT : PRINT "(STAND BY...)": PRINT  CHR$(4);"UNLOCK ";P$: PRINT  CHR$(4);"SAVE ";P$: PRINT  CHR$(4);"LOCK ";P$
  8. 17  REM  <CTRL-M><CTRL-M>APPEND<CTRL-J>PROGRAM<CTRL-J>HERE...